home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / GEOS / (g)g1.d64 / shell game (.txt) < prev    next >
Commodore BASIC  |  2009-01-03  |  2KB  |  59 lines
  1. 1 PRINT"[147]";:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  2. 2 FORI=1TO38:PRINT"[166][146]";:NEXT
  3. 3 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  4. 4 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  5. 5 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  6. 6 PRINT"     "
  7. 7 PRINT"  [146] [169] [146]
  8. 8 [153]"  STEP  "
  9. 9 [153]"  WAIT   "
  10. 10 [153]" ALLISON LIBRARY 
  11. 11 PRINT"   C-64    
  12. 12 [153]"SOFTWARE
  13. 13 PRINT"PRESS SPACE BAR OR WAIT[146]":I=0
  14. 14 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN14
  15. 20 REM C64 SHELL GAME BY WESLEY M. ALLISON OCTOBER 1984
  16. 21 P=100:POKE53280,3:POKE53281,1
  17. 22 PRINT"[147]        COMMODORE 64 SHELL GAME "
  18. 23 PRINT"          BY WESLEY M. ALLISON"
  19. 24 FORT=1TO3500:NEXT
  20. 25 PRINT"          INSTRUCTIONS? (Y/N)"
  21. 26 GETA$:IFA$="N"THEN34
  22. 27 IFA$=""THEN26
  23. 28 PRINT"[147]THE OBJECT OF THE GAME IS TO GUESS WHICHSHELL THAT A PEA IS HIDDEN
  24. 29 [153]"UNDER.":[153]"FIRST, PLACE YOUR BET."
  25. 30 [153]"THEN,PICK A SHELL, ANY SHELL."
  26. 31 [153]"IT'S EASY!"
  27. 32 [153]"        HIT ANY KEY TO CONTINUE"
  28. 33 [161]A$:[139]A$[178]""[167]33
  29. 34 [153]"OPEN"
  30. 35 [153]"LOADOPENONON        COMMODORE 64 SHELL GAME         WAIT"
  31. 36 [153]"      (null)TANRIGHT$   (null)TANRIGHT$   (null)TANRIGHT$   OPEN(null)TANRIGHT$   STOP(null)TANRIGHT$"             "
  32. 37 PRINT"      [171][192][179]   [171][192][179]   [171][192][179]   [159][171][192][179]   [144][171][192][179]"
  33. 38 PRINT"       1     2     3     4     5"
  34. 39 PRINT"YOU HAVE $"P
  35. 40 PRINT"WHAT IS YOUR BET"
  36. 41 INPUTB:IFB>PTHEN36
  37. 42 PRINT"WHICH SHELL"
  38. 43 INPUTS
  39. 44 LET G=INT(1+5*RND(0))
  40. 45 IFG=1THENPRINT"[209]"
  41. 46 IFG=2THENPRINT"[209]"
  42. 47 IFG=3THENPRINT"[209]"
  43. 48 IFG=4THENPRINT"[209]"
  44. 49 IFG=5THENPRINT"[209]"
  45. 50 IFS<>GTHEN53
  46. 51 PRINT"YOU WIN !!!!!!!!!!!!!!":FORT=1TO1500:NEXT:P=P+(B*2)
  47. 52 GOTO56
  48. 53 PRINT"YOU LOSE!!!!!!!!!!!!!!":GOSUB62
  49. 54 P=P-B
  50. 55 GOTO56
  51. 56 IFP<1THEN58
  52. 57 GOTO35
  53. 58 POKE53280,3:POKE53281,3
  54. 59 PRINT"[147][144]      GAME OVER"
  55. 60 FORT=1TO1000:NEXTT
  56. 61 PRINT "HIT RETURN TO REBOOT GEOS...":END
  57. 62 FORT=1TO1500:NEXT
  58. 63 RETURN
  59.